Looking at collinearity between temperature predictors.
library(data.table)
library(ggplot2)
library(reshape2)
library(ggcorrplot)
load("spp_master_ztemp_seus_buoys.Rdata")
Correlation Matrix

ggcorrplot(corr, outline.color = "white", tl.cex = 1, tl.srt = 90, lab_size = 30)
ggcorrplot(corr, outline.color = "white", tl.cex = 1, tl.srt = 90, lab_size = 30)
ggsave(file = "temp_var_correlation_plot.jpg", dpi = 1000)
Saving 7.29 x 4.51 in image
ggsave(file = "temp_var_correlation_plot.jpg", dpi = 1000)
Saving 7.29 x 4.51 in image

# Get the lower triangle
ggcorrplot(corr, type = "lower", outline.col = "white", tl.cex = 1, tl.srt = 90)
ggsave(file = "temp_var_correlation_plot_lower.jpg", dpi = 1000)
Saving 7.29 x 4.51 in image

Correlation matrix small (no lags)

LS0tCnRpdGxlOiAiVGVtcCBDb2xsaW5lYXJpdHkiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCkxvb2tpbmcgYXQgY29sbGluZWFyaXR5IGJldHdlZW4gdGVtcGVyYXR1cmUgcHJlZGljdG9ycy4gCgpgYGB7ciBzZXR1cH0KbGlicmFyeShkYXRhLnRhYmxlKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocmVzaGFwZTIpCmxpYnJhcnkoZ2djb3JycGxvdCkKCgpsb2FkKCJzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveXMuUmRhdGEiKQpgYGAKCgpgYGB7ciBuYXJyb3cgZG93biB0byB2YXJpYWJsZXMgdGhhdCB3ZSBuZWVkfQojY29sdW1ucyB0byBrZWVwIGZvciBjb2xsaW5lYXJpdHkgbWF0cml4CnZhcmlhYmxlX25hbWVzX3JlZHVjZWQgPC0gY29sbmFtZXMoc3BwX21hc3Rlcl96dGVtcF9zZXVzX2J1b3kpW2dyZXBsKCJzLnQiLCBjb2xuYW1lcyhzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveSksKV0KdmFyaWFibGVfbmFtZXNfcmVkdWNlZDIgPC0gdmFyaWFibGVfbmFtZXNfcmVkdWNlZFshZ3JlcGwoIm1lYW58bGFnIiwgdmFyaWFibGVfbmFtZXNfcmVkdWNlZCldCgojbm93LCB1c2luZyB0aGlzIGxpc3QgcmVkdWNlIGR0CnRlbXBlcmF0dXJlX25vbGFncyA8LSBzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveVssLi52YXJpYWJsZV9uYW1lc19yZWR1Y2VkMl0KCiNhbGwgdmFyaWFibGUgbmFtZXMgZm9yIGEgYmlnIGNvbGxpbmFyaXR5IG1hdHJpeAp2YXJpYWJsZV9uYW1lc19hbGwgPC0gdmFyaWFibGVfbmFtZXNfcmVkdWNlZFshZ3JlcGwoIm1lYW4iLCB2YXJpYWJsZV9uYW1lc19yZWR1Y2VkKV0KCiNub3csIHVzaW5nIHRoaXMgbGlzdCByZWR1Y2UgZHQKdGVtcGVyYXR1cmVfd2l0aGxhZ3MgPC0gc3BwX21hc3Rlcl96dGVtcF9zZXVzX2J1b3lbLC4udmFyaWFibGVfbmFtZXNfYWxsXQoKCmBgYAoKQ29ycmVsYXRpb24gTWF0cml4CmBgYHtyIG1hdHJpeCBhbGx9CmNvcnJfZnVsbCA8LSByb3VuZChjb3IodGVtcGVyYXR1cmVfd2l0aGxhZ3MpLCAyKQoKZ2djb3JycGxvdChjb3JyX2Z1bGwsIG91dGxpbmUuY29sb3IgPSAid2hpdGUiLCB0bC5jZXggPSAxLCB0bC5zcnQgPSA5MCwgbGFiX3NpemUgPSAzMCkKZ2dzYXZlKGZpbGUgPSAidGVtcF92YXJfY29ycmVsYXRpb25fcGxvdC5qcGciLCBkcGkgPSAxMDAwKQoKIyBHZXQgdGhlIGxvd2VyIHRyaWFuZ2xlCmdnY29ycnBsb3QoY29ycl9mdWxsLCB0eXBlID0gImxvd2VyIiwgb3V0bGluZS5jb2wgPSAid2hpdGUiLCB0bC5jZXggPSAxLCB0bC5zcnQgPSA5MCkKZ2dzYXZlKGZpbGUgPSAidGVtcF92YXJfY29ycmVsYXRpb25fcGxvdF9sb3dlci5qcGciLCBkcGkgPSAxMDAwKQoKYGBgCgoKQ29ycmVsYXRpb24gbWF0cml4IHNtYWxsIChubyBsYWdzKQpgYGB7ciAgbm8gbGFnc30KY29ycl9zdWJzZXQgPC0gcm91bmQoY29yKHRlbXBlcmF0dXJlX25vbGFncyksIDIpCgpnZ2NvcnJwbG90KGNvcnJfc3Vic2V0LCBvdXRsaW5lLmNvbG9yID0gIndoaXRlIiwgdGwuY2V4ID0gMSwgdGwuc3J0ID0gOTAsIGxhYl9zaXplID0gMzApCmdnc2F2ZShmaWxlID0gInRlbXBfdmFyX2NvcnJlbGF0aW9uX3Bsb3Rfc3Vic2V0LmpwZyIsIGRwaSA9IDEwMDApCgojIEdldCB0aGUgbG93ZXIgdHJpYW5nbGUKZ2djb3JycGxvdChjb3JyX3N1YnNldCxvdXRsaW5lLmNvbCA9ICJ3aGl0ZSIsIHRsLmNleCA9IDcsIHRsLnNydCA9IDkwKQpnZ3NhdmUoZmlsZSA9ICJ0ZW1wX3Zhcl9jb3JyZWxhdGlvbl9wbG90X2xvd2VyX3N1YnNldC5qcGciLCBkcGkgPSAxMDAwKQpgYGAKCg==